﻿Module Module1

    Sub Main()
        Dim parser = New cbeMMSContent(" Jour1  (HANS-VM-XP-SL) [172.16.0.183]")


        Dim SHostNameStr = parser.SHostNameStr
        Dim SIPAddressStr = parser.SIPAddressStr
        Dim SJouNameStr = parser.SJouNameStr
    End Sub

End Module
